﻿Imports System.IO
Public Class vnsms_frmMain

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim mofiles As New getMoFiles("D:\")

        For Each fi In mofiles
            MsgBox(fi.filename + "," + fi.filesize)
        Next

    End Sub
End Class
